home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / gfx / show / gs_src_gs.lha / gs5.03 / wftopfa.ps < prev    next >
Text File  |  1996-07-03  |  9KB  |  305 lines
  1. %    Copyright (C) 1995, 1996 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % wftopfa.ps
  19. % Convert a Wadalab base font to .PFA (or .PFB) format.
  20.  
  21. (gs_ksb_e.ps) runlibfile
  22. (wrfont.ps) runlibfile
  23.  
  24. /wftopfa_dict 100 dict def
  25. wftopfa_dict begin
  26.  
  27. /KanjiSubEncoding dup .findencoding def
  28.  
  29. % Initialize parameters.
  30. /init            % - init -
  31.  { /chars 256 dict def
  32.    /version (001.001) def
  33.    /highcode 0 def
  34.    /StdHW [32] def
  35.    /StdVW [32] def
  36.    /UniqueID 20000000 def
  37.    /FontBase (Wadalab) def
  38.    /StdEncMode false def
  39.    /CustomEncMode false def
  40.    /Binary false def
  41.    /Encrypt true def
  42.  } bind def
  43.  
  44. % Read definitions.
  45. /rdstring 5000 string def
  46. /readdefs        % <filename> readdefs -
  47.  { (r) file
  48.     { dup rdstring readline not { pop exit } if
  49.       dup length 15 ge
  50.        { dup dup length 7 sub 7 getinterval (> CompD) eq
  51.       { token pop exch token pop exch pop
  52.         dup 0 get /highcode exch def
  53.         exch chars 3 1 roll put
  54.       }
  55.       { pop
  56.       }
  57.      ifelse
  58.        }
  59.        { pop
  60.        }
  61.       ifelse
  62.     }
  63.    loop closefile
  64.  } bind def
  65.  
  66. % Write out the final font.
  67. /writepfa
  68.  { 4 string highcode 16#1000 add 16 2 index cvrs 0 (.r) putinterval
  69.      FontBase exch concatstrings /fullname exch def
  70.    UniqueID 20000000 eq { /UniqueID 4990000 highcode add def } if
  71.    /encoding CustomEncMode
  72.     { KanjiSubEncoding }
  73.     { StdEncMode { StandardEncoding } { ISOLatin1Encoding } ifelse }
  74.    ifelse def
  75.  
  76.    /Font 30 dict def
  77.    Font begin
  78.    /FontInfo 20 dict def
  79.    FontInfo begin
  80.  
  81.         % Write the clear text part.
  82.  
  83.    /CreationDate (%Calendar%) currentdevparams
  84.      dup /Weekday get {(Sun )(Mon )(Tue )(Wed )(Thu )(Fri )(Sat )} exch get
  85.      1 index /Month get 1 sub
  86.        {(Jan)(Feb)(Mar)(Apr)(May)(Jun)(Jul)(Aug)(Sep)(Oct)(Nov)(Dec)} exch get
  87.      concatstrings
  88.       {{/Day ( )} {/Hour ( )} {/Minute (:)} {/Second (:)} {/Year ( )}}
  89.       { dup 1 get 3 -1 roll exch concatstrings exch
  90.         0 get 2 index exch get
  91.         dup 10 lt { =string cvs (0) exch concatstrings } { =string cvs } ifelse
  92.         concatstrings
  93.       }
  94.      forall exch pop readonly def
  95.    /VMusage 100000 def
  96.    /version version readonly def
  97.    /Notice (No copyright on this font. Original available from moe.ipl.t.u-tokyo.ac.jp:/Font. Converted by wftopfa.ps (Aladdin Enterprises).) readonly def
  98.    /FullName fullname readonly def
  99.    /FamilyName FontBase readonly def
  100.    /Weight (Regular) readonly def
  101.    /ItalicAngle 0 def
  102.    /isFixedPitch true def
  103.    /UnderlinePosition 0 def
  104.    /UnderlineThickness 0 def
  105.  
  106.    end            % FontInfo
  107.  
  108.    /FontName fullname cvn def
  109.    /Encoding encoding def
  110.    /PaintType 0 def
  111.    /FontType 1 def
  112.    /FontMatrix [.001 0 0 .001 0 -0.16] readonly def
  113.    /UniqueID UniqueID def
  114.    /FontBBox [0 0 1000 1000] readonly def
  115.  
  116.    /Private 20 dict def
  117.    Private begin
  118.  
  119.    /-| {string currentfile exch readstring pop} readonly def
  120.    /|- {readonly def} readonly def
  121.    /| {readonly put} readonly def
  122.    /BlueValues [] readonly def
  123.    /OtherBlues [] readonly def
  124.    /MinFeature {16 16} readonly def
  125.    /StdHW StdHW def
  126.    /StdVW StdVW def
  127.    /ForceBold false def
  128.    /password 5839 def
  129.    /UniqueID UniqueID def
  130.    /OtherSubrs [] readonly def
  131.    /Subrs [
  132.      (\020\2771p|\020\024\020=-\223D\\\342R) readonly
  133.      (\020\2771py\274\366Uz) readonly
  134.      (\020\2771py\275\304\236i) readonly
  135.      (\020\2771p\371) readonly
  136.      (\020\2771p~\266+6\034\3446z) readonly
  137.    ] readonly def
  138.  
  139.    end            % Private
  140.  
  141.    /CharStrings 256 dict def
  142.    chars
  143.     { exch =string cvs
  144.       dup 0 get highcode eq
  145.        { 1 get encoding exch get exch CharStrings 3 1 roll put }
  146.        { pop pop }
  147.       ifelse
  148.     }
  149.    forall
  150.  
  151.    end            % Font
  152.  
  153.    Font /FontName get Font definefont setfont
  154.    (%stdout) (w) file writefont
  155.  } bind def
  156.  
  157. % Scan the command line and process files.
  158. /options mark
  159.   /version { 2 copy get /version exch def 1 add } bind
  160.   /StdHW { 2 copy get cvx exec /StdHW exch def 1 add } bind
  161.   /StdVW { 2 copy get cvx exec /StdVW exch def 1 add } bind
  162.   /UniqueId { 2 copy get cvi /UniqueID exch def 1 add } bind
  163.   /UniqueID 1 index
  164.   /FontBase { 2 copy get /FontBase exch def 1 add } bind
  165.   /StdEnc { /StdEncMode true def } bind
  166.   /CustomEnc { /CustomEncMode true def } bind
  167.   /Binary { /Binary true def } bind
  168.   /noEncrypt { /Encrypt false def } bind
  169. .dicttomark def
  170. /wftopfa        % [(arg1) ...] wftopfa -
  171.  { init dup 0
  172.     { dup 2 index length ge { exit } if
  173.       2 copy get exch 1 add exch
  174.       options 1 index .knownget { exch pop exec } { readdefs } ifelse
  175.     }
  176.    loop pop pop
  177.    wrfont_dict /binary_CharStrings Binary put
  178.    wrfont_dict /eexec_encrypt Encrypt put
  179.    wrfont_dict /name_all_Encodings CustomEncMode put
  180.    writepfa
  181.  } bind def
  182.  
  183. end                % wftopfa_dict
  184.  
  185. /wftopfa
  186.  { mark exch wftopfa_dict begin /saved save def { wftopfa } exec false%stopped
  187.     { cleartomark true } { cleartomark false } ifelse
  188.    saved end restore { stop } if
  189.  } bind def
  190.  
  191. [ shellarguments
  192.  { ] wftopfa }
  193.  { pop }
  194. ifelse
  195.  
  196. % ---------------- Root font ---------------- %
  197.  
  198. % Define the Encoding for the root font.
  199. /wfrootencoding
  200. % \x00-\x3F
  201.   0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
  202.   0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
  203.   0  1  2  3  4  5  6  7  8  0  0  0  0  0  0  0
  204.   9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
  205. % \x40-\x7F
  206.  25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
  207.  41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56
  208.  57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72
  209.  73 74 75 76 77  0  0  0  0  0  0  0  0  0  0  0
  210. % \x80-\xFF
  211. 128 copy
  212. 256 packedarray def
  213.  
  214. % Define the template for the root font dictionary.
  215. /wfrootfontdict mark
  216.   /FontType 0
  217.   /FontMatrix [1 0 0 1 0 0]
  218.   /FMapType 2
  219.   /Encoding wfrootencoding
  220. .dicttomark def
  221.  
  222. % Define a dummy (placeholder) Type 1 font for the FDepVector.
  223. /type1dummyfont        % <fontname> type1dummyfont <font>
  224.  { mark /FontName 3 -1 roll
  225.    /FontType 1
  226.    /FontMatrix [.001 0 0 .001 0 0]
  227.    /FontBBox [0 0 1000 1000]
  228.    /Encoding /KanjiSubEncoding findencoding
  229.    /CharStrings 0 dict
  230.    /Private mark /BlueValues [] /password 5839 .dicttomark
  231.    .dicttomark dup /FontName get exch definefont
  232.  } bind def
  233.  
  234. % Write a root font.  Again, wrfont.ps does most of the work.
  235. /makerootfont        % <rootname> makerootfont <font>
  236.  { wfrootfontdict dup length 4 add    % FontName, FDepVector, PrefEnc, FID
  237.    dict copy begin
  238.    cvlit /FontName exch def
  239.    4 dict begin
  240.    /len FontName length def
  241.    /str len 4 add string def
  242.    FontName str cvs pop
  243.    str len (.r) putinterval
  244.    /FDepVector [ 16#21 1 16#74
  245.     { dup wfrootencoding exch get 0 eq
  246.        { pop
  247.        }
  248.        { 16 str len 2 add 2 getinterval cvrs pop
  249.          str cvn type1dummyfont
  250.        }
  251.       ifelse
  252.     }
  253.    for end counttomark -1 roll dup counttomark 2 roll
  254.    ] def
  255.    FontName currentdict end definefont
  256.  } bind def
  257. /writerootfont        % <rootname> writerootfont -
  258.  { save exch makerootfont setfont (%stdout) (w) file writefont restore
  259.  } bind def
  260.  
  261. % ---------------- Converting entire fonts ---------------- %
  262.  
  263. % Define the directory where the Wadalab fonts are stored.
  264. /wfdir (/home/ghost/kanji/w) def
  265.  
  266. % Convert an entire Wadalab font.
  267. /writeentirefont    % <fontname> <template*> writeentirefont -
  268.  { 2 dict begin
  269.    /templates exch def
  270.    /fontname exch def
  271.    [ templates
  272.       { wfdir (/) concatstrings exch concatstrings { copystring }
  273.     100 string filenameforall
  274.       }
  275.      forall
  276.      wfdir (/wadalab-sym/*.ps) concatstrings { copystring }
  277.        100 string filenameforall
  278.    ]
  279.    (%!\n) print
  280.     { /currentuserparams where
  281.        { pop currentuserparams /VMReclaim get -2 vmreclaim { vmreclaim } }
  282.        { { } }
  283.       ifelse
  284.     } == (exec\n) print
  285.    (/KanjiSubEncoding ) print /KanjiSubEncoding findencoding ==
  286.      (readonly def\n) print
  287.     { (%stderr) (w) file dup 2 index write== flushfile
  288.        mark exch (CustomEnc) (Binary) (noEncrypt)
  289.        (FontBase) fontname counttomark -1 roll ] wftopfa
  290.     }
  291.    forall
  292.    fontname cvn writerootfont
  293.    (exec\n) print
  294.    end
  295.  } def            % don't bind, so we can print the procedure
  296.  
  297. % Convert the Wadalab JIS 1&2 SaiMincho font.
  298. % To invoke this from the command line,
  299. %    gs -dNODISPLAY -q wftopfa.ps -c writeSaiMincho0 flush quit >wmin0.ps
  300. % To make the resulting font loadable on demand, add to the Fontmap file:
  301. %    /Wadalab-SaiMincho (wmin0.ps) ;
  302. /writeSaiMincho0
  303.  { (Wadalab-SaiMincho) [ (wadalab-mincho-0-8/*.ps) ] writeentirefont
  304.  } bind def
  305.